home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog88 < prev    next >
Encoding:
Text File  |  1995-06-29  |  393 b   |  24 lines
  1.  
  2. #
  3. # test the widget extension stuff
  4. #
  5.  
  6. proc put_html {text href} {
  7.     puts stdout "text in anchor: $text"
  8.     puts stdout "hyper reference: $href"
  9. }
  10.  
  11. xtAppInitialize -class Program
  12.  
  13. htmlWidget .html managed \
  14.     -width 200 \
  15.     -height 200 \
  16.     -text "Hello <i>world</i>\
  17. <a href=\"ref text\">anchor text</a>"
  18.  
  19. .html anchorCallback {put_html {%text} {%href}}
  20.  
  21. . realizeWidget
  22.  
  23. . mainLoop
  24.